/* rebr006.p - Cumulative Orders Browse UI                                  */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.10 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 8.5      Created: 06/19/97    By: B. Pedersen    *J1TF*
 *    Revision: 8.5     Modified: 09/26/97    By: B. Pedersen    *J20C*
 *    Revision: 8.5     Modified: 01/31/99    By: Doug Norton    *M071*
 *    Revision: 9.0     Modified: 03/15/99    By: Mark Smith     *M0BF*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.10 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Cumulative Orders"

&SCOPED-DEFINE BR-NAME re006
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE wo_mstr
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.wo_lot
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 wo_mstr.wo_lot
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-wo_lot
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "ID"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.wo_part
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 wo_mstr.wo_part
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-wo_part
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Item Number"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 (if (wo_line > "" or wo_routing > "" or wo_bom_code > "") then (wo_line + "/" + wo_routing + "/" + wo_bom_code) else "")
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 local-3
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-local-3
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Line/Routing/BOM"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(22)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 23

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.wo_status
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 wo_mstr.wo_status
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-wo_status
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "ST"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(1)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 3

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.wo_rel_date
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 wo_mstr.wo_rel_date
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-wo_rel_date
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Start Eff"
&SCOPED-DEFINE BR-FIELD-TYPE-5 date
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT "99/99/99"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 10

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.wo_due_date
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 wo_mstr.wo_due_date
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-wo_due_date
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "End Eff"
&SCOPED-DEFINE BR-FIELD-TYPE-6 date
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "99/99/99"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 9

&SCOPED-DEFINE BR-LOCAL-VAR-3 define variable local-3 as character format "x(22)" no-undo.
&SCOPED-DEFINE Q-NUM-FILT-VALS 6
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 23
&SCOPED-DEFINE BR-BROWSE-WIDTH 73
&SCOPED-DEFINE WHERE-CLAUSE (wo_type = 'c' and wo_fsm_type = '' )
&SCOPED-DEFINE BR-INDEXED-FIELDS 1,2,6

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
